1 FORI=49152TO49270:READJ:POKEI,J:NEXT:DATA032,204,255,169,002,162,112 3 DATA160,192,032,189,255,169,001,162,008,160,000,032,186,255 5 DATA032,192,255,162,001,032,198,255,032,207,255,032,207,255 7 DATA032,207,255,032,207,255,165,144,201,000,208,043,032,099 9 DATA192,032,207,255,141,115,192,032,207,255,141,114,192,173 11 DATA114,192,174,115,192,032,205,189,032,207,255,208,008,169 13 DATA013,032,210,255,076,035,192,032,210,255,076,071,192,169 15 DATA001,032,195,255,032,204,255,096,160,000,169,032,032,210 17 DATA255,200,192,006,208,248,096,036,048,000,000,153,153,151:NC=24:NF=5 20 POKE53281,0:POKE53280,11:PRINTCHR$(8);CHR$(14) 40 N=0:DIMA$(200,25),FD$(NF),C$(25),M$(10),DF$(7),TP$(25):FORI=1TO10:READM$(I):NEXT 43 DATA"[204]OAD [198]ILE ","[211]AVE [198]ILE ","[193]DD [210]ECORD ","[195]HANGE [210]ECORD 44 [131]"STR$ELETE (null)ECORD ","STR$ISPLAY ASCILE ","(null)RINT ASCILE ","# (null)ECORDS 45 DATA"[196]ISK [198]UNCTIONS","[197]XIT ":FORI=1TO7:READDF$(I):NEXT 47 DATA"[214]IEW [196]IRECTORY ","[211]CRATCH [198]ILE ","[210]ENAME [198]ILE 48 [131]"VALRROR (null)TATUS ","ASCORMAT STR$ISK 49 DATA"[214]ALIDATE [196]ISK ","[210]ETURN TO [208]ROGRAM":FORI=1TONF:READFD$(I):NEXT:FORI=1TONC:READC$(I):NEXT 80 SP$=" 90 [153]"LOADCONT PEEKUSINESS STR$EDUCTIONS ":[129]I[178]1[164]10:[153][163]13)""M$(I):[130] 101 [141]3600:R[178]4:M[178]1:[151]214,R:[153]:[153][163]13)"PRINT"M$(M):R1[178]R:M1[178]M 110 [161]K$:[139]K$[178]""[167]110 111 [139]K$[178][199](13)[167]240 115 [139]K$[178]""[167]R[178]R[170]1:M[178]M[170]1:[139]M[178]11[167]M[178]1:R[178]4 120 [139]K$[178]"ON"[167]R[178]R[171]1:M[178]M[171]1:[139]M[178]0[167]M[178]10:R[178]13 125 [151]214,R1:[153]:[153][163]13)""M$(M1):[151]214,R:[153]:[153][163]13)"PRINT"M$(M):R1[178]R:M1[178]M:[137]110 240 [145]M[141]270,1400,440,530,640,790,960,1330,1590,4000:[139]M[178]10[167]110 255 [137]90:: 270 [153]"LOADCONT (null)OAD ASCILE ":[153]"ASCILENAME: "; 290 L[178]15:TY[178]4:[141]3210:[139]F3[167][142] 300 FL$[178]V$:[153]:[159]15,8,15,"IO":[159]2,8,2,"0:"[170]FL$[170]",S,R":[132]15,E,E$,E1,E2 340 [153]"DEFSTR$ISK (null)TATUS:"E;E$;E1;E2:[139]E[167][160]2:[160]15:[153]"ASCILE (null)OT (null)OADED":[141]2310:[142] 360 [132]2,N:[129]I[178]1[164]N:[129]J[178]1[164]NF:[132]2,A$(I,J):[130]:[130]:[160]2:[160]15:[142]:: 440 N[178]N[170]1:X[178]N:[153]"LOAD";:[141]2470:[139]F3[167]N[178]N[171]1:[142] 480 [153]"CONT (null)ORE? [Y/N] 490 GETK$:IFK$=""THEN490 500 IFK$="Y"THEN440 510 RETURN:: 530 PRINT"[147][154] [195]HANGE [210]ECORD ":GOSUB3420:IFFLTHENRETURN 550 FL=0:F=3:PRINT"[150][210]ECORD # TO CHANGE: ";:TY=2:L=3:GOSUB3210:X=VAL(V$):IFF3THENRETURN 585 IFX>NTHENRETURN 590 GOSUB2240:IFFL=1THENRETURN 595 FORI=1TONC:TP$(I)=A$(X,I):NEXT:GOSUB3400:PRINT"":GOSUB2470:IFF3THENFORI=1TONC:A$(X,I)=TP$(I):NEXT 620 RETURN:: 640 PRINT"[147][154] [196]ELETE [210]ECORD ":GOSUB3420:IFFLTHENRETURN 660 FL=0:F=3:PRINT"[150][210]ECORD # TO DELETE: ";:TY=2:L=3:GOSUB3210:X=VAL(V$):IFF3THENRETURN 695 IFX>NTHENRETURN 700 GOSUB2240:IFFL=1THENRETURN 710 N=N-1:FORI=XTON:FORJ=1TONF:A$(I,J)=A$(I+1,J):NEXT:NEXT:PRINTTAB(12)">[210]ECORD DELETED<":GOSUB2310:RETURN 780 : 790 PRINT"[147][154] [196]ISPLAY [198]ILE ":GOSUB3420:IFFLTHENRETURN 810 R=0:F=0:TL=0:GOSUB2620:IFF3THENRETURN 830 PRINT"[147][154] [196]ISPLAY [198]ILE  840 [139]R[178]2[175]F$[179][177]A$(S,1)[167]920 850 [141]3400:[153]"":[153]" (null)ECORD #:"S:[153]FD$(1);A$(S,1);" ";C$([197](A$(S,1))) 880 [129]K[178]2[164]NF:[153]FD$(K);A$(S,K):[130]:TL[178]TL[170][197](A$(S,5)):V[178]TL:[141]2870 900 [153]"DEF LENUM. (null)OTAL:WAIT "XX$:[141]2380:[139]F3[167][142] 920 S[178]S[170]1:[139]S[179][178]E[167]840 930 [153][163]13)">VALND OF FILE<":[141]2310:[142]:: 960 [153]"LOADCONT (null)RINT ASCILE ":[141]3420:[139]FL[167][142] 980 R[178]0:F[178]0:TL[178]0:[141]2620:[139]F3[167][142] 1000 [153]"PRINT(null)RINTER READY? [Y/N] 1010 GETK$:IFK$=""THEN1010 1020 IFK$<>"Y"THENRETURN 1030 PRINT"[154][208]RINTING...":OPEN2,4,7:CMD2 1050 PRINTTAB(5)"-------------------------------------------------------------"; 1060 PRINT"----------- 1070 [153][163]5)": PEEKUSINESS STR$EDUCTIONS "; 1080 [153]" : 1090 PRINTTAB(5)"-------------------------------------------------------------"; 1100 PRINT"-----------":PRINTTAB(5)": [195]ATEGORY"SPC(7)"[196]ATE"SPC(4)"[195]HECK #"SPC(2)"[196]ESCRIPTION"; 1120 PRINTSPC(17);"[193]MOUNT : 1130 [153][163]5)"------------------------------------------------------------"; 1140 [153]"------------":[129]I[178]S[164]E:[139]R[178]2[175]F$[179][177]A$(I,1)[167]1240 1170 CG[178][197](A$(I,1)):[153][163]5);": ";[200](C$(CG)[170]SP$,13);[166]2);:[153][200](A$(I,2)[170]SP$,6);[166]2); 1200 [153][201](SP$[170]A$(I,3),7);[166]2);:[153][200](A$(I,4)[170]SP$,20);[166]1);:[153][201](SP$[170]"$"[170]A$(I,5),13);" : 1230 TL=TL+VAL(A$(I,5)) 1240 NEXT:V=TL:GOSUB2870 1260 PRINTTAB(5)"-------------------------------------------------------------"; 1270 PRINT"-----------":PRINTSPC(5)":";SPC(28)"[212]OTAL: $"XX$;SPC(34-LEN(XX$));": 1290 [153][163]5)"------------------------------------------------------------"; 1300 [153]"------------":[152]2:[160]2:[142]:: 1330 [153]"LOADCONT # (null)ECORDS ":[153]" # (null)ECORDS:";N 1350 FM[178][194](51)[170]256[172][194](52)[171][194](49)[171][194](50)[172]256:[153]"ASCREE (null)EMORY:";FM:[141]2310:[142]:: 1400 [153]"LOADCONT (null)AVE ASCILE ":[141]3420:[139]FL[167][142] 1420 [153]"LENURRENT ASCILENAME: "FL$:[153]" ASCILENAME: ";:L[178]15:TY[178]4:[141]3210:[139]F3[167][142] 1450 FL$[178]V$:[153]:[159]15,8,15,"IO":[159]2,8,2,"@0:"[170]FL$[170]",S,W":[132]15,E,E$,E1,E2 1490 [153]"DEFSTR$ISK (null)TATUS:"E;E$;E1;E2:[139]E[167][160]2:[160]15:[153]"ASCILE (null)OT (null)AVED.":[141]2310:[142] 1510 [152]2,N:[129]I[178]1[164]N:[129]J[178]1[164]NF:[152]2,A$(I,J):[130]:[130]:[160]2:[139]F1[178]0[167][160]15 1570 [142]:: 1590 [153]"LOADCONT STR$ISK ASCUNCTIONS ":[129]I[178]1[164]7:[153][163]12)""DF$(I):[130] 1601 [141]3600:R[178]4:M[178]1:[151]214,R:[153]:[153][163]12)"DEF"DF$(M):R1[178]R:M1[178]M 1610 [161]K$:[139]K$[178]""[167]1610 1620 [139]K$[178][199](13)[167]1690 1625 [139]K$[178]""[167]R[178]R[170]1:M[178]M[170]1:[139]M[178]8[167]M[178]1:R[178]4 1630 [139]K$[178]"ON"[167]R[178]R[171]1:M[178]M[171]1:[139]M[178]0[167]M[178]7:R[178]10 1635 [151]214,R1:[153]:[153][163]12)""DF$(M1):[151]214,R:[153]:[153][163]12)"DEF"DF$(M):R1[178]R:M1[178]M:[137]1610 1690 [139]M[178]7[167][142] 1700 [145]M[141]1730,1780,1880,1960,2030,2150:[137]1590:: 1730 [153]"LOAD (null)IEW STR$IRECTORY ":[158]49152:[141]2310:[142]:: 1780 [153]"LOAD (null)CRATCH ASCILE ":[153]"ASCILENAME: "; 1800 TY[178]4:L[178]15:[141]3210:[139]V$[178][199](0)[167][142] 1820 [153]:[153]"ATNRE YOU SURE? 1830 GETK$:IFK$=""THEN1830 1840 IFK$<>"Y"THENRETURN 1850 OPEN15,8,15,"S0:"+V$:CLOSE15:RETURN:: 1880 PRINT"[147] [210]ENAME [198]ILE 1890 [153]"(null)LD ASCILENAME: ";:TY[178]4:L[178]15:[141]3210:F1$[178]V$:[139]V$[178][199](0)[167][142] 1910 [153]:[153]"(null)EW ASCILENAME: ";:TY[178]4:L[178]15:[141]3210:F2$[178]V$:[139]V$[178][199](0)[167][142] 1930 [159]15,8,15,"R0:"[170]F2$[170]"="[170]F1$:[160]15:[142]:: 1960 [153]"LOAD STR$ISK (null)TATUS ":[159]15,8,15:[132]15,E,E$,E1,E2:[160]15 1990 [153]"STR$ISK (null)TATUS: "E;E$;E1;E2:[141]2310:[142]:: 2030 [153]"LOAD ASCORMAT STR$ISK 2040 PRINT"[150][201]NSERT DISK TO BE FORMATTED.":PRINT"[196]ISK NAME: ";:TY=4:L=15:GOSUB3210:DN$=V$ 2060 IFV$=CHR$(0)THENRETURN 2070 PRINT:PRINT"[196]ISK [201][196]: ";:TY=3:L=2:GOSUB3210:DI$=V$:IFV$=CHR$(0)THENRETURN 2090 PRINT:PRINT"[193]RE YOU SURE? 2100 [161]K$:[139]K$[178]""[167]2100 2110 [139]K$[179][177]"Y"[167][142] 2120 [159]15,8,15,"N0:"[170]DN$[170]","[170]DI$:[160]15:[142]:: 2150 [153]"LOAD (null)ALIDATE STR$ISK 2160 PRINT"[208]RESS [153][198]7 TO VALIDATE, ANY KEY TO EXIT 2170 [161]K$:[139]K$[178]""[167]2170 2180 [139]K$[179][177][199](136)[167][142] 2190 [153]"CONT(null)ALIDATING...":[159]15,8,15,"V0":[160]15:[142]:::: 2240 [153]:[153][163]2)FD$(1);" ";A$(X,1);" ";C$([197](A$(X,1))) 2250 [129]I[178]2[164]NF:[153][163]2)FD$(I);" ";A$(X,I):[130]:[153]"DEFRIGHT$S THIS THE RECORD? [Y/N] 2270 GETK$:IFK$<>"Y"ANDK$<>"N"THEN2270 2280 IFK$="Y"THENRETURN 2290 FL=1:RETURN:: 2310 PRINTTAB(8)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINTTAB(8)"[221] [154][208]RESS [153][198]7 [154]TO CONTINUE [221] 2330 [153][163]8)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP 2340 GETK$:IFK$=""THEN2340 2350 IFK$<>CHR$(136)THEN2340 2360 RETURN:: 2380 F3=0:PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 2400 [153]" (null) PRINT(null)VAL(null)(null)(null)(null) CONTTO CONTINUE. PRINTASC7 CONT TO EXIT. (null) 2410 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 2420 [161]K$:[139]K$[178]""[167]2420 2430 [139]K$[179][177][199](136)[175]K$[179][177][199](13)[167]2420 2440 [139]K$[178][199](136)[167]F3[178]1 2450 [142]:: 2470 [141]3450:[153]" (null)ECORD #:"X:[129]I[178]1[164]NF:[153]FD$(I):[130]:[153]"ONONONONONON 2490 PRINTTAB(15);:TY=2:L=2:GOSUB3210:A$(X,1)=V$:IFF3THENRETURN 2500 V=VAL(V$):IFV<1ORV>NCTHENPRINT"[147]":GOTO2470 2510 PRINTTAB(15);:TY=4:L=6:GOSUB3210:A$(X,2)=V$:IFF3THENRETURN 2520 PRINTTAB(15);:TY=4:L=6:GOSUB3210:A$(X,3)=V$:IFF3THENRETURN 2530 PRINTTAB(15);:TY=4:L=20:GOSUB3210:A$(X,4)=V$:IFF3THENRETURN 2540 PRINTTAB(15);:TY=2:L=11:GOSUB3210:A$(X,5)=V$:IFF3THENRETURN 2550 PRINT"[150] [195]ORRECT? [Y/N] 2560 [161]K$:[139]K$[178]""[167]2560 2570 [139]K$[178]"N"[167][153]"LOAD":[137]2470 2580 [139]K$[178][199](13)[167]F3[178]1:[142] 2590 V[178][197](A$(X,5)):[141]2870:A$(X,5)[178]XX$:[142]:: 2620 [153]"LOADCONT (null)RINT/STR$ISPLAY ASCILES ":S[178]1:E[178]N:F3[178]0 2630 [153][163]5)"1] ATNLL RECORDS":[153][163]5)"2] PEEKY CATEGORY 2650 GETR$:IFR$=""THEN2650 2660 IFR$=CHR$(13)THENF3=1:RETURN 2670 R=VAL(R$):IFR<1ORR>2THEN2650 2680 IFR=1THEN2780 2690 GOSUB3400:PRINT"":GOSUB3450:PRINTTAB(5)"[195]ATEGORY: ";:L=2:TY=2:GOSUB3210:IFF3THENF3=1:RETURN 2750 F=VAL(V$):IFF<1ORF>NCTHEN2620 2760 F$=V$:RETURN:: 2780 PRINT"[212]HERE ARE"N"RECORDS IN THIS FILE. 2790 [153]"START RECORD #: CMDCMDCMD";:TY[178]4:L[178]3:[141]3210:S[178][197](V$):[139]F3[167]F3[178]1:[142] 2810 [139]S[179]1[176]S[177]N[167][153]"ONONON":[137]2780 2820 [153]" END RECORD #: CMDCMDCMD";:TY[178]4:L[178]3:[141]3210:E[178][197](V$):[139]F3[167]F3[178]1:[142] 2840 [139]E[179]S[176]E[177]N[167][153]"ONON":[137]2820 2850 [142]:: 2870 X$[178]"":XX$[178]"":VV[178][181](V[172]10[174](3)):X$[178][196](VV):[139][197]([201](X$,1))[177]4[167]VV[178]VV[170]10 2900 X$[178][196](VV):L[178][195](X$):[139]L[177]4[167]2940 2910 XX$[178]"0.":[139]L[178]4[167]2930 2920 [129]J[178]1[164](4[171]L):XX$[178]XX$[170]"0":[130] 2930 XX$[178]XX$[170][202](X$,2,L[171]2):[137]2950 2940 XX$[178]XX$[170][202](X$,2,L[171]4)[170]"."[170][202](X$,L[171]2,2) 2950 [142]:::[131]" LENATEGORY #: "," STR$ATE: "," LENHECK #: 2980 DATA" [196]ESCRIPTION: "," [193]MOUNT: 2990 [131]"ATNDVERTISING","PEEKAD STR$EBTS","PEEKANK LENHARGES","LENAR/(null)RUCK","LENOMMISSIONS 3000 DATA"[196]EPLETION","[196]EPRECIATION","[196]UES/[208]UB","[197]MPLOYEE [194]EN 3001 [131]"ASCREIGHT","RIGHT$NSURANCE","RIGHT$NTEREST","(null)AUNDRY","(null)EGAL ASCEES 3002 DATA"[207]FFICE [197]XP","[208]ENSION","[210]ENT","[210]EPAIRS","[211]UPPLIES","[212]AXES 3003 [131]"(null)RAVEL/(null)EALS","(null)TILITIES","(null)AGES","(null)THER":: 3210 V$[178]"":K$[178]"":CT[178]0:[153]"TOCMD";:F3[178]0 3220 K$[178]"":[161]K$:[139]K$[178]""[167]3220 3230 [139]K$[178][199](13)[167]3360 3240 [139]K$[178][199](20)[175]CT[179][177]0[167][153]" CMDCMDTOCMD";:CT[178]CT[171]1:V$[178][200](V$,CT):[137]3220 3250 [139]K$[178]" "[167]3330 3260 [139]TY[178]1[176]TY[177]2[167][139](K$[177]"@")[175](K$[179]"[")[167]3330 3270 [139]TY[177]1[167][139](K$[177]"/")[175](K$[179]":")[167]3330 3280 [139]TY[178]2[167][139]K$[178]"."[167]3330 3290 [139]TY[178]1[176]TY[177]2[167][139](K$[177]"TAN")[175](K$[179]"(null)")[167]3330 3300 [139]TY[178]4[167][139](K$[177]" ")[175](K$[179]"0")[167]3330 3310 [139]TY[178]4[167][139](K$[177]"9")[175](K$[179]"@")[167]3330 3320 [137]3220 3330 [139]CT[177][178]L[167]3220 3340 CT[178]CT[170]1:V$[178]V$[170]K$:[153]K$;:[151]212,0:[153]"TOCMD";:[137]3220 3360 [139]CT[178]0[167]V$[178][199](0):F3[178]1 3380 [153]" ":[142]:: 3400 [129]J[178]1[164]10:[151]781,J:[158]59903:[130]:[142]:: 3420 FL[178]0:[139]N[179]1[167]FL[178]1 3430 [139]FL[167][153]"(null)O FILE IN MEMORY.":[141]2310 3440 [142] 3450 [153][163]2)"PRINTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ 3480 PRINTTAB(2)"[221]  1 [193]DVERTISING 2 [194]AD [196]EBTS [153][221] 3490 [153][163]2)"(null)  3 PEEKANK ASCEES 4 LENAR/(null)RUCK PRINT(null) 3500 PRINTTAB(2)"[221]  5 [195]OMMISIONS 6 [196]EPLETION [153][221] 3505 [153][163]2)"(null)  7 STR$EPRECIATION 8 STR$UES/(null)UB PRINT(null) 3506 PRINTTAB(2)"[221]  9 [194]ENEFITS 10 [198]REIGHT [153][221] 3507 [153][163]2)"(null) 11 RIGHT$NSURANCE 12 RIGHT$NTEREST PRINT(null) 3508 PRINTTAB(2)"[221] 13 [204]AUNDRY 14 [204]EGAL [198]EES [153][221] 3509 [153][163]2)"(null) 15 (null)FFICE 16 (null)ENSIONS PRINT(null) 3510 PRINTTAB(2)"[221] 17 [210]ENT 18 [210]EPAIRS [153][221] 3511 [153][163]2)"(null) 19 (null)UPPLIES 20 (null)AXES PRINT(null) 3512 PRINTTAB(2)"[221] 21 [212]RAVEL/[205]EALS 22 [213]TILITIES [153][221] 3513 [153][163]2)"(null) 23 (null)AGES 24 (null)THER PRINT(null) 3515 PRINTTAB(2)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154]":RETURN::. 3600 POKE214,20:PRINT:PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 3610 [153]" (null) CONT(null)SE LEN(null)(null)(null)(null)(null) KEYS/(null)VAL(null)(null)(null)(null) TO SELECT. (null) 3615 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN:: 4000 POKE214,17:PRINT:PRINTTAB(11)"[150][193]RE YOU SURE? [Y/N] 4005 [161]K$:[139]K$[178]""[167]4005 4010 [139]K$[179][177]"Y"[167][153]"ON ":[142] 4015 [159]15,8,15,"R0:TAX BOOT=TAX BOOT":[132]15,ER%:[160]15:[139]ER%[179][177]63[167][153]"LOAD":[128] 4030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)"TAX BOOT"[199](34)",8":[153]"RUN 4045 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END:OPEN15,8,15,"S0:BUS EXP":CLOSE15:SAVE"0:BUS EXP",8